Analysis is the process of breaking a complex topic or substance into smaller parts in order to gain a better understanding of it. The technique has been applied in the study of mathematics and logic since before Aristotle, though analysis as a formal concept is a relatively recent development.(Wikipedia)
## Warning in connection_release(conn@ptr): Already disconnected
## `summarise()` ungrouping output (override with `.groups` argument)
## `summarise()` ungrouping output (override with `.groups` argument)
## `summarise()` ungrouping output (override with `.groups` argument)
plot_4 <- ggplot() + geom_col(data=JHU_Weekly,aes(x=Weekly,y=DC_Sum)) +
labs(title="John Hopkins Weekly US Cases")
plot_5 <- ggplot() + geom_col(data=JHU_Weekly,aes(x=Weekly,y=DD_Sum)) +
labs(title="John Hopkins Weekly US Deaths")
## $title
## [1] "John Hopkins Weekly Cases"
##
## attr(,"class")
## [1] "labels"
## $title
## [1] "NY Times Weekly Cases"
##
## attr(,"class")
## [1] "labels"
## Warning: Removed 1 rows containing missing values (position_stack).
## Warning: Removed 1 rows containing missing values (position_stack).
AA<- USA %>% filter(Reported >="2020-05-01" )
BA<- JHU %>% filter(date >="2020-05-01" )
CA <- NYT %>% filter(date >="2020-05-01")
AA %>% ggplot() + geom_line(aes(x=Reported,y=Cases,col="USA")) +
geom_line(data=BA,aes(x=date,y=DC,col="John Hopkins")) +
geom_line(data=CA,aes(x=date,y=DC,col="NY Times")) +
labs(title="Current Spike in Cases: May 1, 2020 - Present")
AA %>% ggplot() + geom_line(aes(x=Reported,y=Deaths,col="USA")) +
geom_line(data=B,aes(x=date,y=DD,col="John Hopkins")) +
geom_line(data=C,aes(x=date,y=DD,col="NY Times")) +
labs(title="Current Spike in Deaths: May 1, 2020 - Present")